home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc vii 89.d64 / outliner v.4 (.txt) < prev    next >
Commodore BASIC  |  2009-02-03  |  13KB  |  372 lines
  1. 1 POKE 53272, 23
  2. 5 GOTO 400
  3. 7 PRINT"[147]"
  4. 10 FORI=0 TO 35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT
  5. 20 PRINT"----------------------------------------"
  6. 30 PRINT"[150][197]NTER FONT FOR ARTICLE HEADING"
  7. 40 INPUT MD$
  8. 50 PRINT"[197]NTER FONT FOR HEADING"
  9. 60 INPUT DM$
  10. 70 PRINT"[197]NTER FONT FOR SUB-HEADING"
  11. 80 INPUT LJ$
  12. 90 PRINT"[197]NTER FONT FOR DESCRIPTION"
  13. 100 INPUT OJ$
  14. 110 IF MD$="WIDE"THEN DE$=CHR$(15):EN$=CHR$(14)
  15. 120 IF MD$="BOLD"THEN DE$=CHR$(29):EN$=CHR$(14)
  16. 130 IF MD$="NORMAL"THEN DE$=CHR$(15):EN$=CHR$(15)
  17. 140 IF MD$="FINE"THEN DE$=CHR$(29):EN$=CHR$(29)
  18. 150 IF DM$="WIDE"THEN ED$=CHR$(15):NE$=CHR$(14)
  19. 160 IF DM$="BOLD"THEN ED$=CHR$(29):NE$=CHR$(14)
  20. 170 IF DM$="NORMAL"THEN ED$=CHR$(15):NE$=CHR$(15)
  21. 180 IF DM$="FINE"THEN ED$=CHR$(29):NE$=CHR$(29)
  22. 190 IF LJ$="WIDE"THEN ND$=CHR$(15):EE$=CHR$(14)
  23. 200 IF LJ$="BOLD"THEN ND$=CHR$(29):EE$=CHR$(14)
  24. 210 IF LJ$="NORMAL"THEN ND$=CHR$(15):EE$=CHR$(15)
  25. 220 IF LJ$="FINE"THEN ND$=CHR$(29):EE$=CHR$(29)
  26. 230 IF OJ$="WIDE"THEN DN$=CHR$(15):NL$=CHR$(14)
  27. 240 IF OJ$="BOLD"THEN DN$=CHR$(29):NL$=CHR$(14)
  28. 250 IF OJ$="NORMAL"THEN DN$=CHR$(15):NL$=CHR$(15)
  29. 260 IF OJ$="FINE"THEN DN$=CHR$(29):NL$=CHR$(29)
  30. 270 IF MD$="" THEN DE$=CHR$(15):EN$=CHR$(14)
  31. 280 IF DM$=""THEN ED$=CHR$(29):NE$=CHR$(14)
  32. 290 IF LJ$=""THEN ND$=CHR$(15):EE$=CHR$(15)
  33. 300 IF OJ$=""THEN DN$=CHR$(29):NL$=CHR$(29)
  34. 350 GOTO 1445
  35. 400 POKE 53280,0:POKE 53281,0:POKE 646,1
  36. 402 PRINT"[147]"
  37. 405 REM **** MAIN MENU ****
  38. 410 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT
  39. 420 PRINT"              [205]AIN [205]ENU                 "
  40. 430 PRINT"---------------------------------------"
  41. 440 PRINT"1.---[194]EGIN A NEW ARTICLE"
  42. 450 PRINT"2.----[197]NTER NEXT HEADING"
  43. 460 PRINT"3.-----[197]NTER NEXT SUB-HEADING"
  44. 470 PRINT"4.------[197]NTER NEXT DESCRIPTION"
  45. 480 PRINT"5.-------[201]NSTRUCTIONS"
  46. 490 PRINT"6.--------[201]NFORMATION"
  47. 492 PRINT"7.---------[196]EFINE TYPE SETTINGS"
  48. 495 PRINT"8.----------[209]UIT PROGRAM"
  49. 500 PRINT"---------------------------------------"
  50. 510 PRINT"[150][208]LEASE PRESS THE [206]UMBER[146] OF YOUR CHOICE."
  51. 520 PRINT"****************************************"
  52. 535 GET A$
  53. 540 IF A$="" THEN GOTO 535
  54. 550 IF A$="1" THEN GOTO 600:REM ARTICLE
  55. 555 IF A$="2" THEN GOTO 700:REM HEADING
  56. 560 IF A$="3" THEN GOTO 800:REM SUB HEADING
  57. 565 IF A$="4" THEN GOTO 900:REM DESCRIPTION
  58. 570 IF A$="5" THEN GOTO 960:REM INSTRUCTIONS
  59. 580 IF A$="6" THEN 1200:REM INFORMATION
  60. 590 IF A$="7" THEN 1445:REM PROGRAM SETTINGS
  61. 591 IF A$="8"THEN NEW:END:REM QUIT
  62. 592 IF A$="[133]"THEN 10000
  63. 593 IF A$="[134]"THEN 535
  64. 594 IF A$="[135]"THEN 535
  65. 595 IF A$="[136]"THEN 960
  66. 599 REM **** NEW ARTICLE ****
  67. 600 PRINT"[147]"
  68. 605 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT
  69. 610 PRINT"----------------------------------------"
  70. 612 GET D$:IF D$=""THEN 612
  71. 613 IF D$="[133]"THEN GOTO20000
  72. 614 IF D$="[134]"THEN 1
  73. 615 IF D$="[135]"THEN 1
  74. 616 IF D$="[136]"THEN 960
  75. 618 PRINT"[150][208]LEASE TYPE YOUR ARTICLE HEADING"
  76. 620 INPUT A$
  77. 630 OPEN 4,4,7
  78. 631 PRINT"[208]RINTING..."
  79. 635 PRINT#4,DE$:PRINT#4,EN$;LD$;A$;DL$
  80. 636 CLOSE 4
  81. 637 PRINT"[196]ONE! [208]RESS ANY KEY TO CONTINUE..."
  82. 638 GET A$
  83. 639 IF A$="" THEN GOTO 638
  84. 650 GOTO 1
  85. 699 REM **** NEW HEADING ****
  86. 700 PRINT"[147]"
  87. 705 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT
  88. 710 PRINT"----------------------------------------"
  89. 711 GET A$:IF A$=""THEN 711
  90. 712 IF A$="[133]"THEN 30000
  91. 713 IF A$="[134]"THEN 1
  92. 714 IF A$="[135]"THEN 1
  93. 715 IF A$="[136]"THEN 960
  94. 716 PRINT"[150][208]LEASE TYPE THE [210]OMAN [206]UMERAL[146] FOR YOUR  HEADING"
  95. 720 INPUT A$
  96. 725 PRINT"[150][208]LEASE TYPE YOUR HEADING"
  97. 729 INPUT B$
  98. 735 OPEN 4,4,7
  99. 736 PRINT"[208]RINTING..."
  100. 740 PRINT#4,ED$:PRINT#4,NE$;EL$;" "A$". "B$;LE$
  101. 741 CLOSE 4
  102. 742 PRINT"[196]ONE! [208]RESS ANY KEY TO CONTINUE..."
  103. 743 GET A$
  104. 744 IF A$="" THEN GOTO 743
  105. 750 GOTO 1
  106. 799 REM **** NEW SUB HEADING ****
  107. 800 PRINT"[147]"
  108. 805 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT
  109. 810 PRINT"----------------------------------------"
  110. 811 GET A$:IF A$=""THEN 811
  111. 812 IF A$="[133]"THEN 40000
  112. 813 IF A$="[134]"THEN 1
  113. 814 IF A$="[135]"THEN 1
  114. 815 IF A$="[136]"THEN 960
  115. 816 PRINT"[150][208]LEASE TYPE THE [204]ETTER[146] OF YOUR          SUB-HEADING"
  116. 820 INPUT A$
  117. 825 PRINT"[208]LEASE TYPE YOUR SUB-HEADING"
  118. 829 INPUT B$
  119. 835 OPEN 4,4,7
  120. 836 PRINT"[208]RINTING..."
  121. 840 PRINT#4,ND$:PRINT#4,EE$;LN$;"     "A$". "B$;LF$
  122. 841 CLOSE 4
  123. 842 PRINT"[196]ONE! [208]RESS ANY KEY TO CONTINUE..."
  124. 843 GET A$
  125. 844 IF A$="" THEN GOTO 843
  126. 850 GOTO 1
  127. 899 REM **** NEW DESCRIPTION ****
  128. 900 PRINT"[147]"
  129. 905 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT
  130. 910 PRINT"----------------------------------------"
  131. 911 GET A$:IF A$=""THEN 911
  132. 912 IF A$="[133]"THEN 50000
  133. 913 IF A$="[134]"THEN 1
  134. 914 IF A$="[135]"THEN 1
  135. 915 IF A$="[136]"THEN 960
  136. 916 PRINT"[150][212]YPE THE [206]UMBER[146] OF YOUR DESCRIPTION"
  137. 920 INPUT A$
  138. 925 PRINT"[212]YPE YOUR SENTENCE OR PHRASE"
  139. 929 INPUT B$
  140. 935 OPEN 4,4,7
  141. 936 PRINT"[208]RINTING..."
  142. 940 PRINT#4,DN$:PRINT#4,NL$;FD$;"              "A$". "B$;DF$
  143. 941 CLOSE 4
  144. 942 PRINT"[196]ONE! [208]RESS ANY KEY TO CONTINUE..."
  145. 943 GET A$
  146. 944 IF A$="" THEN GOTO 943
  147. 950 GOTO 1
  148. 960 PRINT"[147]"
  149. 961 PRINT"[212]HIS PROGRAM PRINTS OUT AN OUTLINE ON   YOUR COMMODORE PRINTER."
  150. 962 PRINT"[201]T WILL FIRST ASK YOU FOR A:NUMBER,ROMANNUMERAL,LETTER,ETC..."
  151. 963 PRINT"[206]EXT IT WILL ASK FOR THE HEADING,SENTEN-CE,PHRASE,ETC..."
  152. 964 PRINT
  153. 965 PRINT"[150][208]RESS ANY KEY TO CONTINUE."
  154. 966 GET A$
  155. 967 IF A$="" THEN GOTO 966
  156. 1004 PRINT"[145][197]XAMPLE---                "
  157. 1005 PRINT"[150]****************************************"
  158. 1006 PRINT"[212]YPE THE [204]ETTER[146] OF YOUR SUB-HEADING"
  159. 1007 PRINT"? [154][193]"
  160. 1008 PRINT"[212]YPE YOUR SUB-HEADING NOW"
  161. 1009 PRINT"? [154][212]YPES OF [195]OMPUTERS"
  162. 1012 PRINT
  163. 1013 PRINT"[150][217]OUR PRINTER WILL PRINT THIS:"
  164. 1014 PRINT
  165. 1015 PRINT"[154][193]. [212]YPES OF [195]OMPUTERS"
  166. 1016 PRINT"[150]****************************************"
  167. 1017 PRINT
  168. 1020 PRINT"[208]RESS [193]NY [203]EY TO [195]ONTINUE..."
  169. 1021 GET A$
  170. 1022 IF A$="" THEN GOTO 1021
  171. 1030 REM **** CHOOSING FONT INST. ****
  172. 1040 PRINT"[147]"
  173. 1050 PRINT"[212]O DEFINE THE FONT THAT WILL PRINT ON   YOUR PRINTER, DO THE"
  174. 1060 PRINT"FOLLOWING:
  175. 1070 [153]"1) PEEKE AWARE OF THE FOUR FONTS OF PRINT  ((null)IDE, PEEKOLD, (null)ORMAL, AND ASCIN
  176. 1080 PRINT"2) [193]LSO BE AWARE OF THE FOUR TYPES OF   INFORMATION THAT YOU CAN"
  177. 1090 PRINT"PRINT ([193]RTICLE HEADING, HEADING, SUB-   HEADING, AND DESCRIPTIONS)."
  178. 1100 PRINT"3) [211]ELECT '7' (DEFINE TYPE SETTINGS),   THEN '1' IN THE 2ND MENU."
  179. 1110 PRINT"4) [193]NSWER THE QUESTIONS ACCORDING TO    YOUR WISHES."
  180. 1120 PRINT"[208]RESS ANY KEY TO CONTINUE..."
  181. 1130 GET B$
  182. 1140 IF B$=""THEN GOTO 1130
  183. 1145 GOTO 2000
  184. 1150 PRINT"[147][210][197][205][201][206][196][197][210]: [215]HEN YOU SET THE PRINT                  TYPE IN [211]ECTION"
  185. 1160 PRINT"          SEVEN, BE SURE YOU TYPE THEM            IN [204][207][215][197][210][160][195][193][211][197].
  186. 1170 [153]"          ATNLSO, DEFAULT SETTINGS ARE:             (null)IDE, PEEKOLD, (null)ORMAL
  187. 1180 PRINT"          THEN [198]INE (IN ORDER), SO IF             THE SPACING IS OFF
  188. 1190 [153]"          IT IS BECAUSE THE PROGRAM IS            NOT SET FOR VAL(null)VAL(null)(null)CLOSE"
  189. 1192 [153]"          COMBINATION. (null)O DO THIS,                MODIFY LINES 740,"
  190. 1194 [153]"          840, AND 940 FOR THE BEST               ACCURACY."
  191. 1195 [153]"          (null)F COURSE, THE TEXTURE DEFAULT          IS NORMAL."
  192. 1196 [153]"(null)RESS ANY KEY TO CONTINUE..."
  193. 1198 [161] M$:[139] M$[178]"" [167] 1198
  194. 1199 [137] 2090
  195. 1200 [143] **** INFORMATION ****
  196. 1205 [153]"LOAD"
  197. 1210 [153]"(null)HE ORIGINAL PROGRAM (OUTLINER V.1) WAS UPLOADED TO (null)UANTUM(null)INK BY"
  198. 1230 [153]"(null)SER307. RIGHT$T WAS LATER REVISED BY (null)ICHAELCHR$OMEZ, ALSO KNOWN AS (null)VAL(null)(null)CHR$ ON"
  199. 1240 [153]"(null)(null)INK. (null)IKE DECIDED TO REVISE IT"
  200. 1250 [153]"ONCE MORE, THUS BECOMING 'OUTLINER V.4.'"
  201. 1255 [153]"RIGHT$F YOU HAVE ANY QUESTIONS, COMMENTS, OR IDEAS FOR THIS PROGRAM,"
  202. 1260 [153]"(null)OU MAY EITHER CONTACT HIM ONLINE VIA   VAL(null)ATNRIGHT$(null) ((null)VAL(null)(null)CHR$), OR MAIL TO
  203. 1270 PRINT"THIS ADDRESS:"
  204. 1280 PRINT"[205]IKE [199]OMEZ
  205. 1290 [153]"C/O CHR$OMEZ VALNTERPRISES .0416"
  206. 1300 [153]"13514 PEEKUTTERFLY (null)ANE"
  207. 1310 [153]"LEFT$OUSTON, (null)EXAS 77079"
  208. 1312 [153]"(null)RESS ANY KEY TO CONTINUE..."
  209. 1314 [161] D$
  210. 1316 [139] D$[178]"" [167] 1314
  211. 1318 [153]"LOAD"
  212. 1320 [153]"(null)ERSION 1 WAS A GOOD PROGRAM, ALTHOUGH  (null)IKE FELT IT NEEDED REPAIR."
  213. 1330 [153]"RIGHT$T DID NOT ALLOW LOWER CASE PRINTING,   NOR DID IT EVEN HAVE LOWER"
  214. 1340 [153]"CASE ON THE SCREEN! (null)NLY ONE TYPE OF    PRINT WAS AVAILABLE (WIDE),
  215. 1350 PRINT"AND THE SCREENS ARE NOT AS HANDSOME AS  VERSIONS TWO AND THREE."
  216. 1360 PRINT"[214]ERSION 2 WAS A BIG IMPROVEMENT OVER    [213]SER307'S 'OUTLINER V.1',"
  217. 1370 PRINT"ENABLING THE USER TO PRINT IN LOWER CASEUSE FOUR TYPES, AND MUCH"
  218. 1380 PRINT"MORE."
  219. 1390 PRINT"[214]ERSION 3 GIVES THE USER THE ABILITY    TO CHOOSE HIS PRINT TYPE, "
  220. 1400 PRINT"HANDSOMER SCREENS, AND MUCH, MUCH, MORE!"
  221. 1410 PRINT"[208]RESS ANY KEY TO CONTINUE..."
  222. 1420 GET C$
  223. 1430 IF C$=""THEN 1420
  224. 1440 GOTO2340
  225. 1445 REM **** DEFINE SETTINGS ****
  226. 1447 PRINT "[147]"
  227. 1450 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT
  228. 1460 PRINTTAB(13)"[211]ETTINGS [205]ENU"
  229. 1470 PRINT"---------------------------------------"
  230. 1480 PRINT"1.---[196]EFINE TYPE FONT"
  231. 1490 PRINT"2.----[196]EFINE TYPE TEXTURE"
  232. 1515 PRINT"3.-----[197]XIT TO [205]AIN [205]ENU"
  233. 1520 PRINT"---------------------------------------"
  234. 1530 PRINT"[150][208]LEASE PRESS THE [206]UMBER[146] OF YOUR CHOICE."
  235. 1540 PRINT"****************************************"
  236. 1550 GET A$
  237. 1555 IF A$=""THEN 1550
  238. 1560 IF A$="1"THEN7
  239. 1570 IF A$="2"THEN1610
  240. 1580 IF A$="3"THEN1
  241. 1590 IF A$="[133]"THEN 10000
  242. 1600 IF A$="[134]"THEN 1550
  243. 1602 IF A$="[135]"THEN 1
  244. 1604 IF A$="[136]"THEN 960
  245. 1605 REM **** TEXTURE ****
  246. 1610 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT
  247. 1620 PRINT"---------------------------------------"
  248. 1630 PRINT"[150][197]NTER TEXTURE FOR ARTICLE HEADING"
  249. 1640 INPUT DB$
  250. 1650 PRINT"[197]NTER TEXTURE FOR HEADING"
  251. 1660 INPUT BD$
  252. 1670 PRINT"[197]NTER TEXTURE FOR SUB-HEADING"
  253. 1680 INPUT ZA$
  254. 1690 PRINT"[197]NTER TEXTURE FOR DESCRIPTION"
  255. 1700 INPUT AZ$
  256. 1710 IF DB$="NORMAL"THEN LD$=CHR$(146):DL$=CHR$(146)
  257. 1720 IF DB$="REVERSE"THEN LD$=CHR$(18):DL$=CHR$(146)
  258. 1780 IF BD$="NORMAL"THEN EL$=CHR$(146):LE$=CHR$(146)
  259. 1790 IF BD$="REVERSE"THEN EL$=CHR$(18):LE$=CHR$(146)
  260. 1800 IF ZA$="NORMAL"THEN LN$=CHR$(146):LF$=CHR$(146)
  261. 1810 IF ZA$="REVERSE"THEN LN$=CHR$(18):LF$=CHR$(146)
  262. 1820 IF AZ$="NORMAL"THEN FD$=CHR$(146):DF$=CHR$(146)
  263. 1830 IF AZ$="REVERSE"THEN FD$=CHR$(18):DF$=CHR$(146)
  264. 1840 GOTO 1445
  265. 1988 REM (C) 1988
  266. 2000 REM **** DEFINING TEXTURE ****
  267. 2005 PRINT"[147]"
  268. 2010 PRINT"[212]O DEFINE THE TEXTURE OF PRINT THAT IS  PRINTED OUT ON YOUR PRINTER,
  269. 2020 [153]"DO THE FOLLOWING:"
  270. 2030 [153]"1) PEEKE AWARE OF THE TWO TEXTURES OF PRINT((null)ORMAL AND (null)EVERSE), AND"
  271. 2032 [153]"THE FOUR TYPES OF INFORMATION THAT CAN  BE PRINTED(ATNRTICLE HEADING,"
  272. 2034 [153]"HEADING, SUB-HEADING, AND DESCRIPTIONS)."
  273. 2040 [153]"2) ATNLSO BE AWARE OF THAT ONLY TWO FONTS CAN BE PRINTED IN REVERSE"
  274. 2050 [153]"((null)ORMAL AND WIDE)."
  275. 2060 [153]"3) (null)ELECT '7' (DEFINE TYPE SETTINGS),   THEN '2' IN THE 2ND MENU."
  276. 2070 [153]"4) ATNNSWER THE QUESTIONS ACCORDING TO    YOUR WISHES."
  277. 2072 [153]"(null)RESS ANY KEY TO CONTINUE..."
  278. 2074 [161] A$
  279. 2076 [139] A$[178]"" [167] 2074
  280. 2080 [137] 1150
  281. 2090 [143] ****  FUNCTION KEY INFO ****
  282. 2095 [153]"LOAD"
  283. 2100 [153]"(null)HE FUNCTION KEY DEFINITIONS ARE AS     FOLLOWS:"
  284. 2110 [153]"ASC1WAIT EXECUTES THE (null)RIGHT$VAL(null) COMMAND. (null)OU MAY   VIEW THE STATISTICS OF"
  285. 2120 [153]"'ASCONT-(null)EXTURE' WITH THIS. (null)HEN IN THE   MAIN MENU, YOU CAN VIEW ALL"
  286. 2130 [153]"STATISTICS OF THIS COMBINATION."
  287. 2150 [153]"ASC3WAIT (null)VAL(null)(null)(null)(null)S YOU TO THE PREVIOUS MENU."
  288. 2160 [153]"ASC5WAIT LENATN(null)LENVAL(null)S THE OPERATION YOU ARE        CURRENTLY INVOLVED IN.
  289. 2170 PRINT"[198]3 AND [198]5 HAVE VIRTUALLY THE SAME       OPERTATION."
  290. 2180 PRINT"[198]7[146] OFFERS YOU THE HELP THAT YOU NEED.   [215][193][210][206][201][206][199]: [217]OU WILL NOT"
  291. 2190 PRINT"BE RETURNED TO THE OPERATION YOU WERE   PERFORMING BEFORE PRESSING"
  292. 2200 PRINT"[198]7. [217]OU WILL BE RETURNED TO THE [205]AIN    MENU."
  293. 2202 PRINT"[208]RESS ANY KEY TO CONTINUE..."
  294. 2204 GET A$
  295. 2206 IF A$=""THEN 2204
  296. 2208 GOTO 2210
  297. 2210 PRINT"[147][215]HEN ENTERING A PRINTING AREA, YOU WILL SEE NO CURSOR OR COMMAND."
  298. 2220 PRINT"[212]HIS IS A PROMPT TO EITHER PRESS A      FUNCTION KEY, OR PRESS THE"
  299. 2230 PRINT"SPACE BAR TO PROCEED."
  300. 2300 PRINT"[208]RESS ANY KEY TO CONTINUE..."
  301. 2310 GET A$
  302. 2320 IF A$=""THEN 2310
  303. 2330 GOTO 1
  304. 2340 PRINT"[147][214]ERSION 4 IS HOPEFULLY THE FINAL ONE    OF THE [207]UTLINER SERIES,"
  305. 2350 PRINT"AND IT IS A GOOD ONE, [201] MIGHT ADD.      [201] HAVE ADDED FUNCTIONS TO [198]1-7,"
  306. 2360 PRINT"ANOTHER MENU, AND THE ABILITY TO PRINT  IN REVERSE. [200]AVE FUN!"
  307. 2370 PRINT"[208]RESS ANY KEY TO CONTINUE..."
  308. 2380 GET A$
  309. 2390 IF A$=""THEN 2380
  310. 2400 GOTO 1
  311. 10000 REM **** MENU VIEW ****
  312. 10010 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT
  313. 10020 PRINT"---------------------------------------"
  314. 10030 PRINT"[201]NFORMATION      [198]ONT      [212]EXTURE"
  315. 10040 PRINT"-----------      ----      -------"
  316. 10045 IF MD$="NORMAL"THEN PRINT"[193]RTICLE [200]EADING  ";MD$;"[157][157]      ";DB$
  317. 10050 IF MD$<>"NORMAL"THEN PRINT"[193]RTICLE [200]EADING  ";MD$;"      ";DB$
  318. 10055 IF DM$="NORMAL"THEN PRINT"[200]EADING          ";DM$;"[157][157]      ";BD$
  319. 10060 IF DM$<>"NORMAL"THEN PRINT"[200]EADING          ";DM$;"      ";BD$
  320. 10065 IF LJ$="NORMAL"THEN PRINT"[211]UB-[200]EADING      ";LJ$;"[157][157]      ";ZA$
  321. 10070 IF LJ$<>"NORMAL"THEN PRINT"[211]UB-[200]EADING      ";LJ$;"      ";ZA$
  322. 10075 IF OJ$="NORMAL"THEN PRINT"[196]ESCRIPTION      ";OJ$;"[157][157]      ";AZ$
  323. 10080 IF OJ$<>"NORMAL"THEN PRINT"[196]ESCRIPTION      ";OJ$;"      ";AZ$
  324. 10090 PRINT"[208]RESS ANY KEY TO CONTINUE..."
  325. 10100 GET A$
  326. 10110 IF A$=""THEN 10100
  327. 10120 GOTO 1
  328. 20000 REM **** ATNRTICLE RUNIEW ****
  329. 20010 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT
  330. 20020 PRINT"---------------------------------------"
  331. 20030 PRINT"[193]RTICLE [200]EADING [201]NFORMATION"
  332. 20040 PRINT"------- ------- -----------"
  333. 20050 IF DB$="REVERSE" THEN PRINT"";MD$;"          REVERSE[146]"
  334. 20060 IF DB$="NORMAL" THEN PRINT"";MD$;"          NORMAL"
  335. 20070 PRINT"[208]RESS ANY KEY TO CONTINUE..."
  336. 20080 GET A$
  337. 20090 IF A$=""THEN20080
  338. 20100 GOTO 599
  339. 30000 REM **** LEFT$EADING (null)IEW ****
  340. 30010 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT
  341. 30020 PRINT"---------------------------------------"
  342. 30030 PRINT"[200]EADING [201]NFORMATION"
  343. 30040 PRINT"------- -----------"
  344. 30050 IF BD$="REVERSE" THEN PRINT"";DM$;"          REVERSE[146]"
  345. 30060 IF BD$="NORMAL" THEN PRINT"";DM$;"          NORMAL"
  346. 30070 PRINT"[208]RESS ANY KEY TO CONTINUE..."
  347. 30080 GET A$
  348. 30090 IF A$=""THEN30080
  349. 30100 GOTO 699
  350. 40000 REM **** (null)UB-LEFT$EADING (null)IEW ****
  351. 40010 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT
  352. 40020 PRINT"---------------------------------------"
  353. 40030 PRINT"[211]UB-[200]EADING [201]NFORMATION"
  354. 40040 PRINT"----------- -----------"
  355. 40050 IF ZA$="REVERSE" THEN PRINT"";LJ$;"          REVERSE[146]"
  356. 40060 IF ZA$="NORMAL" THEN PRINT"";LJ$;"          NORMAL"
  357. 40070 PRINT"[208]RESS ANY KEY TO CONTINUE..."
  358. 40080 GET A$
  359. 40090 IF A$=""THEN 40080
  360. 40100 GOTO 799
  361. 50000 REM **** STR$ESCRIPTION (null)IEW ****
  362. 50010 FORI=0TO35:PRINT"[147]"TAB(I)"[214] 4.0"TAB(37-I)"[157][157][207]UTLINER":FORX=0TO0:NEXT:NEXT
  363. 50020 PRINT"---------------------------------------"
  364. 50030 PRINT"[196]ESCRIPTION [201]NFORMATION"
  365. 50040 PRINT"----------- -----------"
  366. 50050 IF AZ$="REVERSE"THEN PRINT"";OJ$;"          REVERSE[146]"
  367. 50060 IF AZ$="NORMAL"THEN PRINT"";OJ$;"          NORMAL"
  368. 50070 PRINT"[208]RESS ANY KEY TO CONTINUE..."
  369. 50080 GET A$
  370. 50090 IF A$=""THEN 50080
  371. 50100 GOTO 899
  372.